#IT326 Project
Description of the dataset:
The dataset provided by vgchartz.com supply us with a valuable
resource to explore the platforms and genres of the top 16599 global
video games. Through it, we can analyze the most popular platforms and
genres that are influencing global sales, and detectr how regions’ sales
affect global sales.
Our goal:
Our goal from studying this dataset is to utilize classification and
clustering techniques on the input data to make predictions about the
popularity of upcoming games.
Attributes description:
| Rank |
Ranking of the game based on global sales. |
Numeric |
| Name |
Name of the game. |
Nominal |
| Platform |
Platform the game was released on. |
Nominal |
| Year |
Year the game was released. |
Ordinal |
| Genre |
Genre of the game |
Nominal |
| Publisher |
Publisher of the game. |
Nominal |
| NA_Sales |
Sales of the game in North America |
Numeric (ratio-scaled) |
| EU_Sales |
Sales of the game in Europe |
Numeric (ratio-scaled) |
| JP_Sales |
Sales of the game in Japan |
Numeric (ratio-scaled) |
| Other_Sales |
Sales of the game in other regions |
Numeric (ratio-scaled) |
| Global_Sales |
Total sales of the game worldwide |
Numeric (ratio-scaled) |
Class label:
Popular’ is our class label, we will use Global_Sales attribute to
predict whether a game will sell 1000000 or more globally. Our task of
data mining is regression.
Importing our dataset:
dataset=read.csv("Dataset/vgsales.csv")
loading libraries needed for our data mining tasks:
library(outliers)
library(dplyr)
library(Hmisc)
library(ggplot2)
library(mlbench)
library(caret)
options(max.print=9999999)
General info about our dataset including number of rows and columns,
and cheking dimensionality and coulumns names:
nrow(dataset)
[1] 16598
ncol(dataset)
[1] 11
dim(dataset)
[1] 16598 11
names(dataset)
[1] "Rank" "Name" "Platform" "Year"
[5] "Genre" "Publisher" "NA_Sales" "EU_Sales"
[9] "JP_Sales" "Other_Sales" "Global_Sales"
Dataset structure:
str(dataset)
'data.frame': 16598 obs. of 11 variables:
$ Rank : int 1 2 3 4 5 6 7 8 9 10 ...
$ Name : chr "Wii Sports" "Super Mario Bros." "Mario Kart Wii" "Wii Sports Resort" ...
$ Platform : chr "Wii" "NES" "Wii" "Wii" ...
$ Year : chr "2006" "1985" "2008" "2009" ...
$ Genre : chr "Sports" "Platform" "Racing" "Sports" ...
$ Publisher : chr "Nintendo" "Nintendo" "Nintendo" "Nintendo" ...
$ NA_Sales : num 41.5 29.1 15.8 15.8 11.3 ...
$ EU_Sales : num 29.02 3.58 12.88 11.01 8.89 ...
$ JP_Sales : num 3.77 6.81 3.79 3.28 10.22 ...
$ Other_Sales : num 8.46 0.77 3.31 2.96 1 0.58 2.9 2.85 2.26 0.47 ...
$ Global_Sales: num 82.7 40.2 35.8 33 31.4 ...
sample of raw dataset(first 10 rows):
head(dataset, 10)
sample of raw dataset(last 10 rows):
tail(dataset, 10)
summary of our dataset:
summary(dataset)
Rank Name Platform
Min. : 1 Length:16598 Length:16598
1st Qu.: 4151 Class :character Class :character
Median : 8300 Mode :character Mode :character
Mean : 8301
3rd Qu.:12450
Max. :16600
Year Genre Publisher
Length:16598 Length:16598 Length:16598
Class :character Class :character Class :character
Mode :character Mode :character Mode :character
NA_Sales EU_Sales JP_Sales
Min. : 0.0000 Min. : 0.0000 Min. : 0.00000
1st Qu.: 0.0000 1st Qu.: 0.0000 1st Qu.: 0.00000
Median : 0.0800 Median : 0.0200 Median : 0.00000
Mean : 0.2647 Mean : 0.1467 Mean : 0.07778
3rd Qu.: 0.2400 3rd Qu.: 0.1100 3rd Qu.: 0.04000
Max. :41.4900 Max. :29.0200 Max. :10.22000
Other_Sales Global_Sales
Min. : 0.00000 Min. : 0.0100
1st Qu.: 0.00000 1st Qu.: 0.0600
Median : 0.01000 Median : 0.1700
Mean : 0.04806 Mean : 0.5374
3rd Qu.: 0.04000 3rd Qu.: 0.4700
Max. :10.57000 Max. :82.7400
variance of numeric data:
var(dataset$NA_Sales)
[1] 0.6669712
var(dataset$EU_Sales)
[1] 0.2553799
var(dataset$JP_Sales)
[1] 0.0956607
var(dataset$Other_Sales)
[1] 0.03556559
var(dataset$Global_Sales)
[1] 2.418112
Graphs:
dataset2 <- dataset %>% sample_n(50)
tab <- dataset2$Platform %>% table()
precentages <- tab %>% prop.table() %>% round(3) * 100
txt <- paste0(names(tab), '\n', precentages, '%')
pie(tab, labels=txt , main = "Pie chart of Platform")

We notice from the pie chart of platform attribute that releasing a
game for PS users will increase the popularity of the game since it is
the most common platform among gamers.
# coloring barplot and adding text
tab<-dataset$Genre %>% table()
precentages<-tab %>% prop.table() %>% round(3)*100
txt<-paste0(names(tab), '\n',precentages,'%')
bb <- dataset$Genre %>% table() %>% barplot(axisnames=F, main = "Barplot for Popular genres ",ylab='count',col=c('pink','blue','lightblue','green','lightgreen','red','orange','red','grey','yellow','azure','olivedrab'))
text(bb,tab/2,labels=txt,cex=1.5)

In terms of genre, action games are the most popular, followed by
sports and music games. It is safe to assume that a high number of
genres of this nature exist due to their popularity and sales.
boxplot(dataset$NA_Sales , main="
BoxPlot for NA_Sales")

The boxplot of the NA_Sales (Sales of the game in north America)
attribute indicates that the values are close to each other ,and there
are a lot of outliers since the dataset represents all the north America
sales of video games.
boxplot(dataset$EU_Sales, main="
BoxPlot for EU_Sales")

The boxplot of the EU_Sales (sales of the game in Europe) attribute
indicates that the values are close to each other, and there are a lot
of outliers since the dataset represents all the Europe sales of video
games.
boxplot(dataset$JP_Sales , main="
BoxPlot for JP_Sales")

The boxplot of the JP_Sales (sales of the game in Japan) attribute
indicates that the values are close to each other, and there are a lot
of outliers since the dataset represents all the Japan sales of video
games.
boxplot(dataset$Other_Sales , main="
BoxPlot for Other_Sales")

The boxplot of the Other-sales attribute indicate that the values are
close to each other ,and there is a lot of outliers since the dataset
represents the global sales of video games.
boxplot(dataset$Global_Sales , main="BoxPlot for Global_Sales")

The boxplot of the Global-sales attribute indicate that the values
are close to each other ,and there is a lot of outliers since the
dataset represents the global sales of video games.
qplot(data = dataset, x=Global_Sales,y=Genre,fill=I("yellow"),width=0.5 ,geom = "boxplot" , main = "BoxPlots for genre and Global_Sales")

In the boxplot we can see that all the genres have Glob_ sales close
to each other, but we notice an outlier that reaches more than 80 Glob_
sales which is a game with genre sports.
dataset$Year %>% table() %>% barplot( main = "Barplot for year")

By the barplot we can see that the number of video games were low
from 1980 year until the 2000 numbers of games grow to more than 1200
till 2012.
pairs(~NA_Sales + EU_Sales + JP_Sales + Other_Sales + Global_Sales, data = dataset,
main = "Sales Scatterplot")

We used Scatterplot to determine the type of correlation we have
between the sales; we can see that the majority have positive
correlation with each other.
Pre - processing
Null checking
we checked nulls values to know how many nulls values we have, so we
can determine how we will deal with them.
sum(is.na(dataset$Rank))
[1] 0
NullRank<-dataset[dataset$Rank=="N/A",]
NullRank
checking for nulls in Rank (there is no nulls)
sum(is.na(dataset$Name))
[1] 0
NullName<-dataset[dataset$Name=="N/A",]
NullName
checking for nulls in name (there is no nulls)
sum(is.na(dataset$Platform))
[1] 0
NullPlatform<-dataset[dataset$Platform=="N/A",]
checking for nulls in Platform(there is no nulls)
sum(is.na(dataset$Year))
[1] 0
NullYear<-dataset[dataset$Year=="N/A",]
NullYear
checking for nulls in year we won’t delete the null and we will leave
them as global constant because we want the sales data out of them.
sum(is.na(dataset$Genre))
[1] 0
NullGenre<-dataset[dataset$Genre=="N/A",]
NullGenre
checking for nulls in Genre(there is no nulls)
sum(is.na(dataset$Publisher))
[1] 0
NullPublisher<-dataset[dataset$Publisher=="N/A",]
NullPublisher
checking for nulls in Publisher. we won’t delete the null and we will
leave them as global constant as it is because we want the sales data of
them.
sum(is.na(dataset$NA_Sales))
[1] 0
NullNA_Sales<-dataset[dataset$NA_Sales=="N/A",]
NullNA_Sales
checking for nulls in NA_Sales (there is no nulls)
sum(is.na(dataset$EU_Sales))
[1] 0
NullEU_Sales<-dataset[dataset$EU_Sales=="N/A",]
NullEU_Sales
checking for nulls in EU_Sales (there is no nulls)
sum(is.na(dataset$JP_Sales))
[1] 0
NullJP_Sales<-dataset[dataset$JP_Sales=="N/A",]
NullJP_Sales
checking for nulls in JP_Sales (there is no nulls)
sum(is.na(dataset$Other_Sales))
[1] 0
NullOther_Sales<-dataset[dataset$Other_Sales=="N/A",]
There is no null values in the other_sales.
sum(is.na(dataset$Global_Sales))
[1] 0
NullGlobal_Sales<-dataset[dataset$Global_Saless=="N/A",]
There is no null values in the Global_Sales.
Encoding
We will encode our categorical data since most machine learning
algorithms work with numbers rather than text.
dataset$Platform=factor(dataset$Platform,levels=c("2600","3DO","3DS","DC","DS","GB","GBA","GC","GEN","GG","N64","NES","NG","PC","PCFX","PS","PS2","PS3","PS4","PSP","PSV","SAT","SCD","SNES","TG16","Wii","WiiU","WS","X360","XB","XOne"), labels=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))
this column will be encoded to facilitate our data mining task.
dataset$Genre=factor(dataset$Genre,levels=c("Action","Adventure","Fighting","Platform","Puzzle","Racing","Role-Playing","Shooter","Simulation","Sports","Strategy","Misc"),labels=c(1,2,3,4,5,6,7,8,9,10,11,12))
Since most machine learning algorithms work with numbers and not with
text or categorical variables, this column will be encoded to facilitate
our data mining task.
Outliers
Analyses and statistical models can be ruined by outliers, making it
difficult to detect a true effect. Therefore, we are checking for them
and removing them if we find any.
outlier of NA_Sales
OutNA_Sales = outlier(dataset$NA_Sales, logical =TRUE)
sum(OutNA_Sales)
[1] 1
Find_outlier = which(OutNA_Sales ==TRUE, arr.ind = TRUE)
outlier of EU_Sales
OutEU_Sales = outlier(dataset$EU_Sales, logical =TRUE)
sum(OutEU_Sales)
[1] 1
Find_outlier = which(OutEU_Sales ==TRUE, arr.ind = TRUE)
outlier of JP_Sales
OutJP_Sales = outlier(dataset$JP_Sales, logical =TRUE)
sum(OutJP_Sales)
[1] 1
Find_outlier = which(OutJP_Sales ==TRUE, arr.ind = TRUE)
outlier of other_sales
OutOS=outlier(dataset$Other_Sales, logical=TRUE)
sum(OutOS)
[1] 1
Find_outlier=which(OutOS==TRUE, arr.ind=TRUE)
outlier of Global_sales
OutGS=outlier(dataset$Global_Sales, logical=TRUE)
sum(OutGS)
[1] 1
Find_outlier=which(OutGS==TRUE, arr.ind=TRUE)
Remove outliers
dataset= dataset[-Find_outlier,]
Normalization
The normalization of data will improve the performance of many
machine learning algorithms by accounting for differences in the scale
of the input features.
Dataset before normalization:
datsetWithoutNormalization<-dataset
normalize <- function(x) {return ((x - min(x)) / (max(x) - min(x)))}
dataset$NA_Sales<-normalize(datsetWithoutNormalization$NA_Sales)
dataset$EU_Sales<-normalize(datsetWithoutNormalization$EU_Sales)
dataset$JP_Sales<-normalize(datsetWithoutNormalization$JP_Sales)
dataset$Other_Sales<-normalize(datsetWithoutNormalization$Other_Sales)
dataset$Global_Sales<-normalize(datsetWithoutNormalization$Global_Sales)
We chose min-max normalization instead of z-score normalization
because min-max transform the data into a specific range, which enhances
its suitability for visualization and comparison. Additionally, it
simplifies the process of assessing attribute importance and their
contributions to the model.
Feautre selection
Our class label (popular) refers to Global_Sales.because we have
multiple regions sales we chose to evaluate each region sales based on
their importance to (global_sales) column,and those that are less
important will be deleted from the dataset.
Use roc_curve area as score
roc_imp <- filterVarImp(x = dataset[,7:10], y = dataset$Global_Sales)
Sort the score in decreasing order
roc_imp <- data.frame(cbind(variable = rownames(roc_imp), score = roc_imp[,1]))
roc_imp$score <- as.double(roc_imp$score)
roc_imp[order(roc_imp$score,decreasing = TRUE),]
we will remove the (JP_Sales) because it is of low importance to our
class_label(Global_Sales)
dataset<- dataset[,-9]
Dataset after pre-processing
print(dataset)
LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KI0lUMzI2IFByb2plY3QNCg0KDQoNCg0KIyBEZXNjcmlwdGlvbiBvZiB0aGUgZGF0YXNldDoNCg0KVGhlIGRhdGFzZXQgcHJvdmlkZWQgYnkgdmdjaGFydHouY29tIHN1cHBseSB1cyB3aXRoIGEgdmFsdWFibGUgcmVzb3VyY2UgdG8gZXhwbG9yZSB0aGUgcGxhdGZvcm1zIGFuZCBnZW5yZXMgb2YgdGhlIHRvcCAxNjU5OSBnbG9iYWwgdmlkZW8gZ2FtZXMuIFRocm91Z2ggaXQsIHdlIGNhbiBhbmFseXplIHRoZSBtb3N0IHBvcHVsYXIgcGxhdGZvcm1zIGFuZCBnZW5yZXMgdGhhdCBhcmUgaW5mbHVlbmNpbmcgZ2xvYmFsIHNhbGVzLCBhbmQgZGV0ZWN0ciBob3cgcmVnaW9ucycgc2FsZXMgYWZmZWN0IGdsb2JhbCBzYWxlcy4gDQoNCiMgU291cmNlIGFuZCBsaW5rOg0KU291cmNlOiBLYWdnbGUNCg0KVVJMIGxpbms6IGh0dHBzOi8vd3d3LmthZ2dsZS5jb20vZGF0YXNldHMvZ3JlZ29ydXQvdmlkZW9nYW1lc2FsZXMNCg0KIyBPdXIgZ29hbDoNCg0KT3VyIGdvYWwgIGZyb20gc3R1ZHlpbmcgdGhpcyBkYXRhc2V0IGlzIHRvIHV0aWxpemUgY2xhc3NpZmljYXRpb24gYW5kIGNsdXN0ZXJpbmcgdGVjaG5pcXVlcyBvbiB0aGUgaW5wdXQgZGF0YSB0byBtYWtlIHByZWRpY3Rpb25zIGFib3V0IHRoZSBwb3B1bGFyaXR5IG9mIHVwY29taW5nIGdhbWVzLg0KDQoNCg0KIyBBdHRyaWJ1dGVzIGRlc2NyaXB0aW9uOg0KDQoNCnwgKipBdHRyaWJ1dGVzIG5hbWUqKiB8ICoqRGVzY3JpcHRpb24qKiAgICAgICAgICAgICAgICAgICB8ICoqRGF0YSB0eXBlKiogfCANCnwtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLXwtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tfC0tLS0tLS0tLS0tLS0tLS0tLS0tLXwNCnxSYW5rICAgICAgICAgICAgICAgfCBSYW5raW5nIG9mIHRoZSBnYW1lIGJhc2VkIG9uIGdsb2JhbCBzYWxlcy4gfCBOdW1lcmljICAgICAgIHwNCnwgTmFtZSAgICAgICAgICAgIHwgTmFtZSBvZiB0aGUgZ2FtZS4gfCBOb21pbmFsICAgICAgIHwgDQp8IFBsYXRmb3JtICAgICAgfCBQbGF0Zm9ybSB0aGUgZ2FtZSB3YXMgcmVsZWFzZWQgb24uIHwgTm9taW5hbCAgICAgICB8IA0KfCBZZWFyICAgICAgICAgICAgICAgfCBZZWFyIHRoZSBnYW1lIHdhcyByZWxlYXNlZC4gfCBPcmRpbmFsICAgICAgIHwgDQp8IEdlbnJlICAgICAgICAgICAgfCBHZW5yZSBvZiB0aGUgZ2FtZSB8IE5vbWluYWwgICAgICAgfCANCnwgUHVibGlzaGVyICAgICAgfCBQdWJsaXNoZXIgb2YgdGhlIGdhbWUuIHwgTm9taW5hbCAgICAgICB8IA0KfCBOQV9TYWxlcyAgICAgIHwgU2FsZXMgb2YgdGhlIGdhbWUgaW4gTm9ydGggQW1lcmljYSB8IE51bWVyaWMgKHJhdGlvLXNjYWxlZCkgICAgICAgfCANCnwgRVVfU2FsZXMgICAgICAgfCBTYWxlcyBvZiB0aGUgZ2FtZSBpbiBFdXJvcGUgfCBOdW1lcmljIChyYXRpby1zY2FsZWQpICAgICAgICB8IA0KfCBKUF9TYWxlcyAgICAgICAgfCBTYWxlcyBvZiB0aGUgZ2FtZSBpbiBKYXBhbiB8IE51bWVyaWMgKHJhdGlvLXNjYWxlZCkgICAgICAgIHwgDQp8IE90aGVyX1NhbGVzIHwgU2FsZXMgb2YgdGhlIGdhbWUgaW4gb3RoZXIgcmVnaW9ucyB8IE51bWVyaWMgKHJhdGlvLXNjYWxlZCkgICAgICAgIHwgDQp8IEdsb2JhbF9TYWxlcyAgfCBUb3RhbCBzYWxlcyBvZiB0aGUgZ2FtZSB3b3JsZHdpZGUgfCBOdW1lcmljIChyYXRpby1zY2FsZWQpICAgICB8ICAgICANCg0KDQojIENsYXNzIGxhYmVsOg0KDQpQb3B1bGFyJyBpcyBvdXIgY2xhc3MgbGFiZWwsIHdlIHdpbGwgdXNlIEdsb2JhbF9TYWxlcyBhdHRyaWJ1dGUgdG8gcHJlZGljdCB3aGV0aGVyIGEgZ2FtZSB3aWxsIHNlbGwgMTAwMDAwMCBvciBtb3JlIGdsb2JhbGx5LiBPdXIgdGFzayBvZiBkYXRhIG1pbmluZyBpcyByZWdyZXNzaW9uLg0KDQoNCg0KDQoNCg0KDQoNCg0KSW1wb3J0aW5nIG91ciBkYXRhc2V0Og0KYGBge3J9DQpkYXRhc2V0PXJlYWQuY3N2KCJEYXRhc2V0L3Znc2FsZXMuY3N2IikNCmBgYA0KDQoNCmxvYWRpbmcgbGlicmFyaWVzIG5lZWRlZCBmb3Igb3VyIGRhdGEgbWluaW5nIHRhc2tzOg0KYGBge3J9DQpsaWJyYXJ5KG91dGxpZXJzKSANCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KEhtaXNjKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShtbGJlbmNoKQ0KbGlicmFyeShjYXJldCkNCm9wdGlvbnMobWF4LnByaW50PTk5OTk5OTkpDQpgYGANCg0KDQoNCg0KR2VuZXJhbCBpbmZvIGFib3V0IG91ciBkYXRhc2V0IGluY2x1ZGluZyAgbnVtYmVyIG9mIHJvd3MgYW5kIGNvbHVtbnMsIGFuZCBjaGVraW5nIGRpbWVuc2lvbmFsaXR5IGFuZCBjb3VsdW1ucyBuYW1lczoNCmBgYHtyfQ0KbnJvdyhkYXRhc2V0KQ0KbmNvbChkYXRhc2V0KQ0KZGltKGRhdGFzZXQpDQpuYW1lcyhkYXRhc2V0KQ0KYGBgDQoNCg0KDQoNCkRhdGFzZXQgc3RydWN0dXJlOg0KYGBge3J9DQpzdHIoZGF0YXNldCkNCmBgYA0KDQoNCg0Kc2FtcGxlIG9mIHJhdyBkYXRhc2V0KGZpcnN0IDEwIHJvd3MpOg0KYGBge3J9DQpoZWFkKGRhdGFzZXQsIDEwKQ0KYGBgDQoNCnNhbXBsZSBvZiByYXcgZGF0YXNldChsYXN0IDEwIHJvd3MpOg0KYGBge3J9DQp0YWlsKGRhdGFzZXQsIDEwKQ0KYGBgDQoNCnN1bW1hcnkgb2Ygb3VyIGRhdGFzZXQ6DQpgYGB7cn0NCnN1bW1hcnkoZGF0YXNldCkNCmBgYA0KDQp2YXJpYW5jZSBvZiBudW1lcmljIGRhdGE6DQpgYGB7cn0NCnZhcihkYXRhc2V0JE5BX1NhbGVzKQ0KdmFyKGRhdGFzZXQkRVVfU2FsZXMpDQp2YXIoZGF0YXNldCRKUF9TYWxlcykNCnZhcihkYXRhc2V0JE90aGVyX1NhbGVzKQ0KdmFyKGRhdGFzZXQkR2xvYmFsX1NhbGVzKQ0KYGBgDQoNCg0KDQoNCg0KDQojIEdyYXBoczoNCg0KYGBge3J9DQpkYXRhc2V0MiA8LSBkYXRhc2V0ICU+JSBzYW1wbGVfbig1MCkNCnRhYiA8LSBkYXRhc2V0MiRQbGF0Zm9ybSAlPiUgdGFibGUoKQ0KcHJlY2VudGFnZXMgPC0gdGFiICU+JSBwcm9wLnRhYmxlKCkgJT4lIHJvdW5kKDMpICogMTAwIA0KdHh0IDwtIHBhc3RlMChuYW1lcyh0YWIpLCAnXG4nLCBwcmVjZW50YWdlcywgJyUnKSANCg0KcGllKHRhYiwgbGFiZWxzPXR4dCAsIG1haW4gPSAiUGllIGNoYXJ0IG9mIFBsYXRmb3JtIikgDQoNCmBgYA0KDQpXZSBub3RpY2UgZnJvbSB0aGUgcGllIGNoYXJ0IG9mIHBsYXRmb3JtIGF0dHJpYnV0ZSB0aGF0IHJlbGVhc2luZyBhIGdhbWUgZm9yIFBTIHVzZXJzIHdpbGwgaW5jcmVhc2UgdGhlIHBvcHVsYXJpdHkgb2YgdGhlIGdhbWUgc2luY2UgaXQgaXMgdGhlIG1vc3QgY29tbW9uIHBsYXRmb3JtIGFtb25nIGdhbWVycy4gDQoNCg0KDQoNCg0KYGBge3J9DQojIGNvbG9yaW5nIGJhcnBsb3QgYW5kIGFkZGluZyB0ZXh0DQp0YWI8LWRhdGFzZXQkR2VucmUgJT4lIHRhYmxlKCkgDQoNCnByZWNlbnRhZ2VzPC10YWIgJT4lIHByb3AudGFibGUoKSAlPiUgcm91bmQoMykqMTAwIA0KDQp0eHQ8LXBhc3RlMChuYW1lcyh0YWIpLCAnXG4nLHByZWNlbnRhZ2VzLCclJykgDQoNCmJiIDwtIGRhdGFzZXQkR2VucmUgJT4lIHRhYmxlKCkgJT4lIGJhcnBsb3QoYXhpc25hbWVzPUYsIG1haW4gPSAiQmFycGxvdCBmb3IgUG9wdWxhciBnZW5yZXMgIix5bGFiPSdjb3VudCcsY29sPWMoJ3BpbmsnLCdibHVlJywnbGlnaHRibHVlJywnZ3JlZW4nLCdsaWdodGdyZWVuJywncmVkJywnb3JhbmdlJywncmVkJywnZ3JleScsJ3llbGxvdycsJ2F6dXJlJywnb2xpdmVkcmFiJykpIA0KDQp0ZXh0KGJiLHRhYi8yLGxhYmVscz10eHQsY2V4PTEuNSkgDQpgYGANCkluIHRlcm1zIG9mIGdlbnJlLCBhY3Rpb24gZ2FtZXMgYXJlIHRoZSBtb3N0IHBvcHVsYXIsIGZvbGxvd2VkIGJ5IHNwb3J0cyBhbmQgbXVzaWMgZ2FtZXMuIEl0IGlzIHNhZmUgdG8gYXNzdW1lIHRoYXQgYSBoaWdoIG51bWJlciBvZiBnZW5yZXMgb2YgdGhpcyBuYXR1cmUgZXhpc3QgZHVlIHRvIHRoZWlyIHBvcHVsYXJpdHkgYW5kIHNhbGVzLg0KDQoNCg0KDQoNCmBgYHtyfQ0KYm94cGxvdChkYXRhc2V0JE5BX1NhbGVzICwgbWFpbj0iDQpCb3hQbG90IGZvciBOQV9TYWxlcyIpDQpgYGANClRoZSBib3hwbG90IG9mIHRoZSBOQV9TYWxlcyAgKFNhbGVzIG9mIHRoZSBnYW1lIGluIG5vcnRoIEFtZXJpY2EpIGF0dHJpYnV0ZSBpbmRpY2F0ZXMgdGhhdCB0aGUgdmFsdWVzIGFyZSBjbG9zZSB0byBlYWNoIG90aGVyICxhbmQgdGhlcmUgYXJlIGEgbG90IG9mIG91dGxpZXJzIHNpbmNlIHRoZSBkYXRhc2V0IHJlcHJlc2VudHMgYWxsIHRoZSBub3J0aCBBbWVyaWNhIHNhbGVzIG9mIHZpZGVvIGdhbWVzLg0KDQpgYGB7cn0NCmJveHBsb3QoZGF0YXNldCRFVV9TYWxlcywgbWFpbj0iDQogQm94UGxvdCBmb3IgRVVfU2FsZXMiKQ0KYGBgDQpUaGUgYm94cGxvdCBvZiB0aGUgRVVfU2FsZXMgKHNhbGVzIG9mIHRoZSBnYW1lIGluIEV1cm9wZSkgYXR0cmlidXRlIGluZGljYXRlcyB0aGF0IHRoZSB2YWx1ZXMgYXJlIGNsb3NlIHRvIGVhY2ggb3RoZXIsIGFuZCB0aGVyZSBhcmUgYSBsb3Qgb2Ygb3V0bGllcnMgc2luY2UgdGhlIGRhdGFzZXQgcmVwcmVzZW50cyBhbGwgdGhlIEV1cm9wZSBzYWxlcyBvZiB2aWRlbyBnYW1lcy4NCg0KYGBge3J9DQpib3hwbG90KGRhdGFzZXQkSlBfU2FsZXMgLCBtYWluPSINCiBCb3hQbG90IGZvciBKUF9TYWxlcyIpDQpgYGANClRoZSBib3hwbG90IG9mIHRoZSBKUF9TYWxlcyAoc2FsZXMgb2YgdGhlIGdhbWUgaW4gSmFwYW4pIGF0dHJpYnV0ZSBpbmRpY2F0ZXMgdGhhdCB0aGUgdmFsdWVzIGFyZSBjbG9zZSB0byBlYWNoIG90aGVyLCBhbmQgdGhlcmUgYXJlIGEgbG90IG9mIG91dGxpZXJzIHNpbmNlIHRoZSBkYXRhc2V0IHJlcHJlc2VudHMgYWxsIHRoZSBKYXBhbiBzYWxlcyBvZiB2aWRlbyBnYW1lcy4NCg0KDQpgYGB7cn0NCmJveHBsb3QoZGF0YXNldCRPdGhlcl9TYWxlcyAsIG1haW49Ig0KIEJveFBsb3QgZm9yIE90aGVyX1NhbGVzIikgDQpgYGAgIA0KDQpUaGUgYm94cGxvdCBvZiB0aGUgT3RoZXItc2FsZXMgYXR0cmlidXRlIGluZGljYXRlIHRoYXQgdGhlIHZhbHVlcyBhcmUgY2xvc2UgdG8gZWFjaCBvdGhlciAsYW5kIHRoZXJlIGlzIGEgbG90IG9mIG91dGxpZXJzIHNpbmNlIHRoZSBkYXRhc2V0IHJlcHJlc2VudHMgdGhlIGdsb2JhbCBzYWxlcyBvZiB2aWRlbyBnYW1lcy4gDQoNCg0KDQoNCmBgYHtyfQ0KYm94cGxvdChkYXRhc2V0JEdsb2JhbF9TYWxlcyAsIG1haW49IkJveFBsb3QgZm9yIEdsb2JhbF9TYWxlcyIpDQoNCmBgYCAgDQpUaGUgYm94cGxvdCBvZiB0aGUgR2xvYmFsLXNhbGVzIGF0dHJpYnV0ZSBpbmRpY2F0ZSB0aGF0IHRoZSB2YWx1ZXMgYXJlIGNsb3NlIHRvIGVhY2ggb3RoZXIgLGFuZCB0aGVyZSBpcyBhIGxvdCBvZiBvdXRsaWVycyBzaW5jZSB0aGUgZGF0YXNldCByZXByZXNlbnRzIHRoZSBnbG9iYWwgc2FsZXMgb2YgdmlkZW8gZ2FtZXMuIA0KDQoNCg0KYGBge3J9DQpxcGxvdChkYXRhID0gZGF0YXNldCwgeD1HbG9iYWxfU2FsZXMseT1HZW5yZSxmaWxsPUkoInllbGxvdyIpLHdpZHRoPTAuNSAsZ2VvbSA9ICJib3hwbG90IiAsIG1haW4gPSAiQm94UGxvdHMgZm9yIGdlbnJlIGFuZCBHbG9iYWxfU2FsZXMiKQ0KYGBgDQoNCkluIHRoZSBib3hwbG90IHdlIGNhbiBzZWUgdGhhdCBhbGwgdGhlIGdlbnJlcyBoYXZlIEdsb2JfIHNhbGVzIGNsb3NlIHRvIGVhY2ggb3RoZXIsIGJ1dCB3ZSBub3RpY2UgYW4gb3V0bGllciB0aGF0IHJlYWNoZXMgbW9yZSB0aGFuIDgwIEdsb2JfIHNhbGVzIHdoaWNoIGlzIGEgZ2FtZSB3aXRoIGdlbnJlIHNwb3J0cy4gDQoNCmBgYHtyfQ0KZGF0YXNldCRZZWFyICU+JSB0YWJsZSgpICU+JSBiYXJwbG90KCBtYWluID0gIkJhcnBsb3QgZm9yIHllYXIiKQ0KYGBgDQoNCkJ5IHRoZSBiYXJwbG90IHdlIGNhbiBzZWUgdGhhdCB0aGUgbnVtYmVyIG9mIHZpZGVvIGdhbWVzIHdlcmUgbG93IGZyb20gMTk4MCB5ZWFyIHVudGlsIHRoZSAyMDAwIG51bWJlcnMgb2YgZ2FtZXMgZ3JvdyB0byBtb3JlIHRoYW4gMTIwMCB0aWxsIDIwMTIuDQoNCg0KYGBge3J9DQpwYWlycyh+TkFfU2FsZXMgKyBFVV9TYWxlcyArIEpQX1NhbGVzICsgT3RoZXJfU2FsZXMgKyBHbG9iYWxfU2FsZXMsIGRhdGEgPSBkYXRhc2V0LA0KICAgICAgbWFpbiA9ICJTYWxlcyBTY2F0dGVycGxvdCIpDQpgYGAgICAgDQpXZSB1c2VkIFNjYXR0ZXJwbG90IHRvIGRldGVybWluZSB0aGUgdHlwZSBvZiBjb3JyZWxhdGlvbiB3ZSBoYXZlIGJldHdlZW4gdGhlIHNhbGVzOyB3ZSBjYW4gc2VlIHRoYXQgdGhlIG1ham9yaXR5IGhhdmUgcG9zaXRpdmUgY29ycmVsYXRpb24gd2l0aCBlYWNoIG90aGVyLiANCiANCiANCiAgICAgIA0KIyBQcmUgLSBwcm9jZXNzaW5nDQoNCiMgVmFyYWlibGUgdHJhbnNmb3JtYXRpb24NCmBgYHtyfQ0KZGF0YXNldCRSYW5rPWFzLmNoYXJhY3RlcihkYXRhc2V0JFJhbmspDQpgYGANCldlIHRyYW5zZm9ybWVkIHRoZSBSYW5rIGZyb20gbnVtcmljIHRvIGNoYXIsYmVjYXVzZSB3ZSB3aWxsIHVzZSB0aGVtIGFzIG9yZGluYWwgZGF0YS4NCg0KIyBOdWxsIGNoZWNraW5nDQp3ZSBjaGVja2VkIG51bGxzIHZhbHVlcyB0byBrbm93IGhvdyBtYW55IG51bGxzIHZhbHVlcyB3ZSBoYXZlLCBzbyB3ZSBjYW4gZGV0ZXJtaW5lIGhvdyB3ZSB3aWxsIGRlYWwgd2l0aCB0aGVtLg0KYGBge3J9DQpzdW0oaXMubmEoZGF0YXNldCRSYW5rKSkNCk51bGxSYW5rPC1kYXRhc2V0W2RhdGFzZXQkUmFuaz09Ik4vQSIsXQ0KTnVsbFJhbmsNCmBgYA0KY2hlY2tpbmcgZm9yIG51bGxzIGluIFJhbmsgKHRoZXJlIGlzIG5vIG51bGxzKQ0KYGBge3J9DQpzdW0oaXMubmEoZGF0YXNldCROYW1lKSkNCk51bGxOYW1lPC1kYXRhc2V0W2RhdGFzZXQkTmFtZT09Ik4vQSIsXQ0KTnVsbE5hbWUNCmBgYA0KDQpjaGVja2luZyBmb3IgbnVsbHMgaW4gbmFtZSAodGhlcmUgaXMgbm8gbnVsbHMpDQoNCmBgYHtyfQ0Kc3VtKGlzLm5hKGRhdGFzZXQkUGxhdGZvcm0pKQ0KTnVsbFBsYXRmb3JtPC1kYXRhc2V0W2RhdGFzZXQkUGxhdGZvcm09PSJOL0EiLF0NCg0KDQpgYGANCmNoZWNraW5nIGZvciBudWxscyBpbiBQbGF0Zm9ybSh0aGVyZSBpcyBubyBudWxscykNCg0KYGBge3J9DQpzdW0oaXMubmEoZGF0YXNldCRZZWFyKSkNCk51bGxZZWFyPC1kYXRhc2V0W2RhdGFzZXQkWWVhcj09Ik4vQSIsXQ0KTnVsbFllYXINCmBgYA0KY2hlY2tpbmcgZm9yIG51bGxzIGluIHllYXINCndlIHdvbid0IGRlbGV0ZSB0aGUgbnVsbCBhbmQgd2Ugd2lsbCBsZWF2ZSB0aGVtIGFzIGdsb2JhbCBjb25zdGFudCBiZWNhdXNlIHdlIHdhbnQgdGhlIHNhbGVzIGRhdGEgb3V0IG9mIHRoZW0uDQoNCmBgYHtyfQ0Kc3VtKGlzLm5hKGRhdGFzZXQkR2VucmUpKQ0KTnVsbEdlbnJlPC1kYXRhc2V0W2RhdGFzZXQkR2VucmU9PSJOL0EiLF0NCk51bGxHZW5yZQ0KYGBgDQpjaGVja2luZyBmb3IgbnVsbHMgaW4gR2VucmUodGhlcmUgaXMgbm8gbnVsbHMpDQoNCmBgYHtyfQ0Kc3VtKGlzLm5hKGRhdGFzZXQkUHVibGlzaGVyKSkNCk51bGxQdWJsaXNoZXI8LWRhdGFzZXRbZGF0YXNldCRQdWJsaXNoZXI9PSJOL0EiLF0NCk51bGxQdWJsaXNoZXINCmBgYA0KY2hlY2tpbmcgZm9yIG51bGxzIGluIFB1Ymxpc2hlci4NCndlIHdvbid0IGRlbGV0ZSB0aGUgbnVsbCBhbmQgd2Ugd2lsbCBsZWF2ZSB0aGVtIGFzIGdsb2JhbCBjb25zdGFudCBhcyBpdCBpcyBiZWNhdXNlIHdlIHdhbnQgdGhlIHNhbGVzIGRhdGEgb2YgdGhlbS4NCg0KYGBge3J9DQpzdW0oaXMubmEoZGF0YXNldCROQV9TYWxlcykpDQpOdWxsTkFfU2FsZXM8LWRhdGFzZXRbZGF0YXNldCROQV9TYWxlcz09Ik4vQSIsXQ0KTnVsbE5BX1NhbGVzDQpgYGANCmNoZWNraW5nIGZvciBudWxscyBpbiBOQV9TYWxlcyAodGhlcmUgaXMgbm8gbnVsbHMpDQoNCmBgYHtyfQ0Kc3VtKGlzLm5hKGRhdGFzZXQkRVVfU2FsZXMpKQ0KTnVsbEVVX1NhbGVzPC1kYXRhc2V0W2RhdGFzZXQkRVVfU2FsZXM9PSJOL0EiLF0NCk51bGxFVV9TYWxlcw0KYGBgDQpjaGVja2luZyBmb3IgbnVsbHMgaW4gRVVfU2FsZXMgKHRoZXJlIGlzIG5vIG51bGxzKQ0KDQpgYGB7cn0NCnN1bShpcy5uYShkYXRhc2V0JEpQX1NhbGVzKSkNCk51bGxKUF9TYWxlczwtZGF0YXNldFtkYXRhc2V0JEpQX1NhbGVzPT0iTi9BIixdDQpOdWxsSlBfU2FsZXMNCmBgYA0KY2hlY2tpbmcgZm9yIG51bGxzIGluIEpQX1NhbGVzICh0aGVyZSBpcyBubyBudWxscykNCg0KDQpgYGB7cn0NCnN1bShpcy5uYShkYXRhc2V0JE90aGVyX1NhbGVzKSkNCk51bGxPdGhlcl9TYWxlczwtZGF0YXNldFtkYXRhc2V0JE90aGVyX1NhbGVzPT0iTi9BIixdDQoNCg0KYGBgDQpUaGVyZSBpcyBubyBudWxsIHZhbHVlcyBpbiB0aGUgb3RoZXJfc2FsZXMuDQoNCmBgYHtyfQ0Kc3VtKGlzLm5hKGRhdGFzZXQkR2xvYmFsX1NhbGVzKSkNCk51bGxHbG9iYWxfU2FsZXM8LWRhdGFzZXRbZGF0YXNldCRHbG9iYWxfU2FsZXNzPT0iTi9BIixdDQoNCg0KYGBgDQpUaGVyZSBpcyBubyBudWxsIHZhbHVlcyBpbiB0aGUgR2xvYmFsX1NhbGVzLg0KDQojIEVuY29kaW5nDQpXZSB3aWxsIGVuY29kZSBvdXIgY2F0ZWdvcmljYWwgZGF0YSBzaW5jZSBtb3N0IG1hY2hpbmUgbGVhcm5pbmcgYWxnb3JpdGhtcyB3b3JrIHdpdGggbnVtYmVycyByYXRoZXIgdGhhbiB0ZXh0Lg0KDQpgYGB7cn0NCmRhdGFzZXQkUGxhdGZvcm09ZmFjdG9yKGRhdGFzZXQkUGxhdGZvcm0sbGV2ZWxzPWMoIjI2MDAiLCIzRE8iLCIzRFMiLCJEQyIsIkRTIiwiR0IiLCJHQkEiLCJHQyIsIkdFTiIsIkdHIiwiTjY0IiwiTkVTIiwiTkciLCJQQyIsIlBDRlgiLCJQUyIsIlBTMiIsIlBTMyIsIlBTNCIsIlBTUCIsIlBTViIsIlNBVCIsIlNDRCIsIlNORVMiLCJURzE2IiwiV2lpIiwiV2lpVSIsIldTIiwiWDM2MCIsIlhCIiwiWE9uZSIpLCBsYWJlbHM9YygxLDIsMyw0LDUsNiw3LDgsOSwxMCwxMSwxMiwxMywxNCwxNSwxNiwxNywxOCwxOSwyMCwyMSwyMiwyMywyNCwyNSwyNiwyNywyOCwyOSwzMCwzMSkpDQpgYGANCnRoaXMgY29sdW1uIHdpbGwgYmUgZW5jb2RlZCB0byBmYWNpbGl0YXRlIG91ciBkYXRhIG1pbmluZyB0YXNrLg0KDQpgYGB7cn0NCmRhdGFzZXQkR2VucmU9ZmFjdG9yKGRhdGFzZXQkR2VucmUsbGV2ZWxzPWMoIkFjdGlvbiIsIkFkdmVudHVyZSIsIkZpZ2h0aW5nIiwiUGxhdGZvcm0iLCJQdXp6bGUiLCJSYWNpbmciLCJSb2xlLVBsYXlpbmciLCJTaG9vdGVyIiwiU2ltdWxhdGlvbiIsIlNwb3J0cyIsIlN0cmF0ZWd5IiwiTWlzYyIpLGxhYmVscz1jKDEsMiwzLDQsNSw2LDcsOCw5LDEwLDExLDEyKSkNCmBgYA0KU2luY2UgbW9zdCBtYWNoaW5lIGxlYXJuaW5nIGFsZ29yaXRobXMgd29yayB3aXRoIG51bWJlcnMgYW5kIG5vdCB3aXRoIHRleHQgb3IgY2F0ZWdvcmljYWwgdmFyaWFibGVzLCB0aGlzIGNvbHVtbiB3aWxsIGJlIGVuY29kZWQgdG8gZmFjaWxpdGF0ZSBvdXIgZGF0YSBtaW5pbmcgdGFzay4NCg0KIyBPdXRsaWVycw0KQW5hbHlzZXMgYW5kIHN0YXRpc3RpY2FsIG1vZGVscyBjYW4gYmUgcnVpbmVkIGJ5IG91dGxpZXJzLCBtYWtpbmcgaXQgZGlmZmljdWx0IHRvIGRldGVjdCBhIHRydWUgZWZmZWN0LiBUaGVyZWZvcmUsIHdlIGFyZSBjaGVja2luZyBmb3IgdGhlbSBhbmQgcmVtb3ZpbmcgdGhlbSBpZiB3ZSBmaW5kIGFueS4NCg0Kb3V0bGllciBvZiBOQV9TYWxlcw0KYGBge3J9DQpPdXROQV9TYWxlcyA9IG91dGxpZXIoZGF0YXNldCROQV9TYWxlcywgbG9naWNhbCA9VFJVRSkNCnN1bShPdXROQV9TYWxlcykNCkZpbmRfb3V0bGllciA9IHdoaWNoKE91dE5BX1NhbGVzID09VFJVRSwgYXJyLmluZCA9IFRSVUUpDQoNCmBgYA0Kb3V0bGllciBvZiBFVV9TYWxlcw0KYGBge3J9DQpPdXRFVV9TYWxlcyA9IG91dGxpZXIoZGF0YXNldCRFVV9TYWxlcywgbG9naWNhbCA9VFJVRSkNCnN1bShPdXRFVV9TYWxlcykNCkZpbmRfb3V0bGllciA9IHdoaWNoKE91dEVVX1NhbGVzID09VFJVRSwgYXJyLmluZCA9IFRSVUUpDQpgYGANCm91dGxpZXIgb2YgSlBfU2FsZXMNCmBgYHtyfQ0KT3V0SlBfU2FsZXMgPSBvdXRsaWVyKGRhdGFzZXQkSlBfU2FsZXMsIGxvZ2ljYWwgPVRSVUUpDQpzdW0oT3V0SlBfU2FsZXMpDQpGaW5kX291dGxpZXIgPSB3aGljaChPdXRKUF9TYWxlcyA9PVRSVUUsIGFyci5pbmQgPSBUUlVFKQ0KYGBgDQoNCm91dGxpZXIgb2Ygb3RoZXJfc2FsZXMgDQpgYGB7cn0NCk91dE9TPW91dGxpZXIoZGF0YXNldCRPdGhlcl9TYWxlcywgbG9naWNhbD1UUlVFKSAgDQpzdW0oT3V0T1MpICANCkZpbmRfb3V0bGllcj13aGljaChPdXRPUz09VFJVRSwgYXJyLmluZD1UUlVFKSAgDQoNCmBgYA0KDQoNCm91dGxpZXIgb2YgR2xvYmFsX3NhbGVzIA0KDQpgYGB7cn0NCk91dEdTPW91dGxpZXIoZGF0YXNldCRHbG9iYWxfU2FsZXMsIGxvZ2ljYWw9VFJVRSkgIA0Kc3VtKE91dEdTKSAgDQpGaW5kX291dGxpZXI9d2hpY2goT3V0R1M9PVRSVUUsIGFyci5pbmQ9VFJVRSkgIA0KDQpgYGANCg0KDQoNCiMgUmVtb3ZlIG91dGxpZXJzIA0KYGBge3J9DQpkYXRhc2V0PSBkYXRhc2V0Wy1GaW5kX291dGxpZXIsXQ0KYGBgDQoNCg0KDQojIE5vcm1hbGl6YXRpb24NClRoZSBub3JtYWxpemF0aW9uIG9mIGRhdGEgd2lsbCBpbXByb3ZlIHRoZSBwZXJmb3JtYW5jZSBvZiBtYW55IG1hY2hpbmUgbGVhcm5pbmcgYWxnb3JpdGhtcyBieSBhY2NvdW50aW5nIGZvciBkaWZmZXJlbmNlcyBpbiB0aGUgc2NhbGUgb2YgdGhlIGlucHV0IGZlYXR1cmVzLg0KDQpEYXRhc2V0IGJlZm9yZSBub3JtYWxpemF0aW9uOg0KYGBge3J9DQpkYXRzZXRXaXRob3V0Tm9ybWFsaXphdGlvbjwtZGF0YXNldA0KYGBgDQoNCg0KYGBge3J9DQpub3JtYWxpemUgPC0gZnVuY3Rpb24oeCkge3JldHVybiAoKHggLSBtaW4oeCkpIC8gKG1heCh4KSAtIG1pbih4KSkpfQ0KZGF0YXNldCROQV9TYWxlczwtbm9ybWFsaXplKGRhdHNldFdpdGhvdXROb3JtYWxpemF0aW9uJE5BX1NhbGVzKQ0KZGF0YXNldCRFVV9TYWxlczwtbm9ybWFsaXplKGRhdHNldFdpdGhvdXROb3JtYWxpemF0aW9uJEVVX1NhbGVzKQ0KZGF0YXNldCRKUF9TYWxlczwtbm9ybWFsaXplKGRhdHNldFdpdGhvdXROb3JtYWxpemF0aW9uJEpQX1NhbGVzKQ0KZGF0YXNldCRPdGhlcl9TYWxlczwtbm9ybWFsaXplKGRhdHNldFdpdGhvdXROb3JtYWxpemF0aW9uJE90aGVyX1NhbGVzKQ0KZGF0YXNldCRHbG9iYWxfU2FsZXM8LW5vcm1hbGl6ZShkYXRzZXRXaXRob3V0Tm9ybWFsaXphdGlvbiRHbG9iYWxfU2FsZXMpDQpgYGANCldlIGNob3NlIG1pbi1tYXggbm9ybWFsaXphdGlvbiBpbnN0ZWFkIG9mIHotc2NvcmUgbm9ybWFsaXphdGlvbiBiZWNhdXNlIG1pbi1tYXggdHJhbnNmb3JtIHRoZSBkYXRhIGludG8gYSBzcGVjaWZpYyByYW5nZSwgd2hpY2ggZW5oYW5jZXMgaXRzIHN1aXRhYmlsaXR5IGZvciB2aXN1YWxpemF0aW9uIGFuZCBjb21wYXJpc29uLiBBZGRpdGlvbmFsbHksIGl0IHNpbXBsaWZpZXMgdGhlIHByb2Nlc3Mgb2YgYXNzZXNzaW5nIGF0dHJpYnV0ZSBpbXBvcnRhbmNlIGFuZCB0aGVpciBjb250cmlidXRpb25zIHRvIHRoZSBtb2RlbC4NCg0KDQoNCg0KDQojIEZlYXV0cmUgc2VsZWN0aW9uDQoNCk91ciBjbGFzcyBsYWJlbCAocG9wdWxhcikgcmVmZXJzIHRvIEdsb2JhbF9TYWxlcy5iZWNhdXNlIHdlIGhhdmUgbXVsdGlwbGUgcmVnaW9ucyBzYWxlcyB3ZSBjaG9zZSB0byBldmFsdWF0ZSBlYWNoIHJlZ2lvbiBzYWxlcyBiYXNlZCBvbiB0aGVpciBpbXBvcnRhbmNlIHRvIChnbG9iYWxfc2FsZXMpIGNvbHVtbixhbmQgdGhvc2UgdGhhdCBhcmUgbGVzcyBpbXBvcnRhbnQgd2lsbCBiZSBkZWxldGVkIGZyb20gdGhlIGRhdGFzZXQuDQoNCg0KVXNlIHJvY19jdXJ2ZSBhcmVhIGFzIHNjb3JlDQpgYGB7cn0NCnJvY19pbXAgPC0gZmlsdGVyVmFySW1wKHggPSBkYXRhc2V0Wyw3OjEwXSwgeSA9IGRhdGFzZXQkR2xvYmFsX1NhbGVzKQ0KYGBgDQoNCg0KU29ydCB0aGUgc2NvcmUgaW4gZGVjcmVhc2luZyBvcmRlcg0KYGBge3J9DQpyb2NfaW1wIDwtIGRhdGEuZnJhbWUoY2JpbmQodmFyaWFibGUgPSByb3duYW1lcyhyb2NfaW1wKSwgc2NvcmUgPSByb2NfaW1wWywxXSkpDQpyb2NfaW1wJHNjb3JlIDwtIGFzLmRvdWJsZShyb2NfaW1wJHNjb3JlKQ0Kcm9jX2ltcFtvcmRlcihyb2NfaW1wJHNjb3JlLGRlY3JlYXNpbmcgPSBUUlVFKSxdDQpgYGANCg0KDQp3ZSB3aWxsIHJlbW92ZSB0aGUgKEpQX1NhbGVzKSBiZWNhdXNlIGl0IGlzIG9mIGxvdyBpbXBvcnRhbmNlIHRvIG91ciBjbGFzc19sYWJlbChHbG9iYWxfU2FsZXMpDQpgYGB7cn0NCmRhdGFzZXQ8LSBkYXRhc2V0WywtOV0NCmBgYA0KDQojIERhdGFzZXQgYWZ0ZXIgcHJlLXByb2Nlc3NpbmcNCmBgYHtyfQ0KcHJpbnQoZGF0YXNldCkNCmBgYA0KDQo=